home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / mail / netmail_13.lha / NetMail / Drivers / Ed.editor < prev    next >
Text File  |  1995-09-30  |  1KB  |  54 lines
  1. /*
  2. ** $VER: Ed.editor 1.2 (30.9.95)
  3. ** Copyright (c) 1995 Riccardo Solmi
  4. **
  5. */
  6.  
  7. OPTIONS RESULTS
  8. OPTIONS FAILAT 21
  9.  
  10. cmd = 'C:Ed'
  11. IF ~EXISTS(cmd) THEN RETURN 2
  12.  
  13. SELECT
  14.    WHEN UPPER(ARG(1)) = 'EDIT' THEN DO
  15.       PARSE ARG , file, port
  16.  
  17.       winpar  = ''
  18.       wininfo = GetVar('NetMail/EditorWin')
  19.       IF wininfo ~= 0 THEN DO
  20.          PARSE VAR wininfo pL pT pW pH .
  21.          winpar = 'WINDOW="CON:'pL'/'pT'/'pW'/'pH'/Ed editor"'
  22.       END
  23.  
  24.       port = 'Ed'
  25.       IF ~SHOW('P', port) THEN DO
  26.          ADDRESS COMMAND
  27.            'Run >NIL: "'cmd'" "'file'"' winpar
  28.            'WaitForPort' port
  29.            IF RC ~= 0 THEN RETURN 5
  30.       END
  31.       ELSE DO
  32.          ADDRESS VALUE port
  33.          'OP "'file'"'
  34.       END
  35.    END
  36.    WHEN UPPER(ARG(1)) = 'SAVE' THEN DO
  37.       PARSE ARG , port
  38.  
  39.       IF SHOW('P', port) & ABBREV(port, 'Ed') THEN DO
  40.          ADDRESS VALUE port
  41.          'SA'
  42.       END
  43.    END
  44.    WHEN UPPER(ARG(1)) = 'CLOSE' THEN DO
  45.       PARSE ARG , port
  46.  
  47.       IF SHOW('P', port) & ABBREV(port, 'Ed') THEN DO
  48.          ADDRESS VALUE port
  49.          'Q'
  50.       END
  51.    END
  52. END
  53. RETURN port
  54.